home *** CD-ROM | disk | FTP | other *** search
/ Scrutiny in the Great Round / ScruTiny in the Great Round (1995)(Calliope)[PC-Mac].iso / pc / scrutiny.inf < prev    next >
Text File  |  1995-10-10  |  5KB  |  206 lines
  1. DefineVariables
  2. Number [ReturnVal1]
  3. Number [ReturnVal2]
  4. number [ReturnVal3]
  5. Number [ErrCount]
  6.  
  7. Directory [WinDir]
  8. Directory [WinsDir]
  9.  
  10. Logical [EnKeyb]
  11. Logical [NetAvail]
  12. Logical [MathPres]
  13. Logical [CDAvail]
  14.  
  15. Number [XMSAvail]
  16. Number [ExtmemPagesActive]
  17. Number [ExtmemPagesAvail]
  18. Number [ExtMemAvail]
  19. Number [ExtMemPres]
  20. Number [ExpMempgavail]
  21. Number [ExpMempgactive]
  22.  
  23. Text [DispType]
  24. Text [OSVer]
  25. Text [DosVer]
  26. Text [EmsVer]
  27.  
  28. Text [ProdExecutable]
  29. Text [GroupTitle]
  30. Text [GroupFile]
  31. Text [ExistingGroupName]
  32. Text [InstDir]
  33.  
  34. Text [FactsIconF]
  35.  
  36. Text [IconTitle]
  37. Text [IconFile]
  38.  
  39. EndDefineVariables
  40.  
  41.  
  42. Do SetupDisplay
  43.  
  44. Do CheckHardware
  45.  
  46.  
  47. If [errcount] > 1
  48. Dialog UseHeader "Encountered Some Problems"
  49. .L The installation has encountered the following problems,
  50. .L you can continue to install or exit installation.
  51. [Array1][1]
  52. [Array1][2]
  53. [Array1][3]
  54. [Array1][4]
  55. [Array1][5]
  56. [Array1][6]
  57. [Array1][7]
  58. EndDialog
  59. Endif
  60.  
  61.  
  62. :Start
  63. Do ExecuteInstallation 
  64.  
  65.  
  66.  
  67.  
  68. Procedure ExecuteInstallation 
  69.  
  70. ;; show text screen
  71. Dialog BlackOnLightGray
  72. The ScruTiny SETUP program will now run the QuickTime for Windows SETUP program,
  73. which will install version 2.03 of the QuickTime for Windows runtime player.
  74. You must have QuickTime for Windows installed in order to run ScruTiny.
  75.  
  76. Immediately after QuickTime is copied to your system, there may be a short pause.
  77. Please wait until the ScruTiny SETUP program returns and finishes installation.
  78.  
  79. If you choose to cancel the QuickTime for Windows SETUP program, you may run it at a
  80. later time by re-running the ScruTiny SETUP program.
  81. EndDialog
  82.  
  83. Do QuickTimeInstaller
  84. Do Install
  85. Do ModifyScrutinyINI
  86. Do DisplayImergyMessage
  87.  
  88. Dialog BlackOnLightGray
  89. The installation was successful. Click OK to quit
  90. EndDialog
  91.  
  92. EndProcedure
  93.  
  94. Procedure ModifyScrutinyINI
  95.    ;;ModifyTextFile  C:\SCREW\SCRUTINY.INI Quietly
  96.      ;; AddOrChangeLineWith (option,=,OFF) as "Option = ON" At Beginning|End
  97.   ;; EndModifyTextFile
  98. ModifyTextFile [InstallationDirectory]\SCRUTINY.INI
  99.   AddOrChangeLineWith (CD-ROM,=, ) as "CD-ROM=[InstallFromDrive]" at Beginning
  100. EndModifyTextFile
  101. EndProcedure
  102.  
  103. Procedure QuickTimeInstaller
  104. RUN [InstallFromDirectory]\QTINSTAL.EXE
  105. EndProcedure
  106.  
  107. Procedure DisplayImergyMessage
  108. ;; Imergy Notice , display for 5 seconds
  109. Dialog 5000 BlackOnLightGray
  110. During installation the physical and virtual RAM of
  111. your computer was checked by RamChecker(TM), created by The Imergists, Inc.,
  112. copyright 1995 The Imergists, Inc. RamChecker is a Trademark of The Imergist, Inc..
  113. EndDialog
  114. EndProcedure
  115.  
  116. Procedure SetupDisplay
  117. SetDefaultBitMap Off
  118.  
  119. SetBackGroundColor 0 0 64 0 0 200 TopToBottom
  120.  
  121.  
  122. SetPopupAttrTo YellowOnBlue
  123.  
  124. ShowWindow Maximized
  125.  
  126. EndProcedure
  127.  
  128. Procedure getUserSelectedDriveAndDirectory
  129. Dialog [InstallationDirectory] 44
  130. Into which drive and directory would you like to install ScruTiny in the Great Round?
  131.  
  132. To accept the default directory, click OK.
  133. To choose a different directory, type in another directory name below and click OK.
  134. EndDialog
  135. EndProcedure
  136.  
  137. Procedure Install
  138. ;;set up the default drive\directory
  139. [InstallationDirectory] := [BootDrive]:\ScruTiny
  140. Do getUserSelectedDriveAndDirectory
  141.  
  142. QueAllFiles
  143. GetQuedFiles
  144. ChangeDirectoryto [InstallationDirectory]
  145. [ProdExecutable] := [InstallationDirectory]\SCRUTINY
  146. [GroupTitle]  := Calliope Media
  147. [InstDir]        := [InstallationDirectory]
  148. [IconFile]     := SCRUTINY.ICO
  149.  
  150. [IconTitle]      := ScruTiny in the Great Round
  151.  
  152. :Top
  153. ProgramManagerDDE
  154. CreateGroup(Calliope Media)
  155. AddItem([ProdExecutable],[IconTitle],[InstallationDirectory]\[IconFile])
  156. AddItem([InstallationDirectory]\README.TXT,ScruTiny ReadMe,[InstallationDirectory]\README.TXT)
  157. AddItem([InstallationDirectory]\README.EXE,QuickTime ReadMe,[BootDrive]:\Windows\README.EXE)
  158. EndProgramManagerDDE
  159. EndProcedure
  160.  
  161. ;; Check Hardware Procedure
  162. Procedure CheckHardware
  163. [Number3] := 1
  164.  
  165. [Windir] := [WindowsDirectory]
  166. [Winsdir] := [WindowsSystemDirectory]
  167. [ExtmemPagesActive] := ExtendedMemoryPagesActive
  168. [ExtmemPagesAvail] := ExtendedMemoryPagesAvailable
  169. [ExtMemAvail] := ExtendedMemoryAvailable
  170. [ExtMemPres] := ExtendedMemoryPresent
  171. [ExpMempgAvail] := ExpandedMemoryPagesAvailable
  172. [ExpMempgActive] := ExpandedMemoryPagesActive
  173. [OsVer] := OSVersion
  174. [DosVer] := DOSVersion
  175. [EmsVer] := EMSVersion
  176.  
  177.  
  178. If [DOSVer] < 3.1
  179. [Array1][[number3]] := You must have a DOS version of at least 3.1 or more
  180. IncrementNumber [number3]
  181. Endif
  182.  
  183. [Errcount] := [Number3]
  184.  
  185. EndProcedure
  186.  
  187.  
  188.  
  189.  
  190. Procedure HardwareSum
  191. Dialog
  192. DOS Version  : [DosVer]
  193. Extended Memory Available : [ExtMemAvail]
  194. Extended Memory Present : [ExtMemPres]
  195. Extended Memory Pages Active : [ExtMemPagesActive]
  196. Extended Memory Pages Available : [ExtMemPagesAvail]
  197. Expanded Memory Pages Available : [ExpmempgAvail]
  198. Expanded Memory Pages Active    : [ExpMempgactive]
  199.  
  200. Windows Directory  : [windir]
  201. Windows System Directory : [winsdir]
  202. EndDialog
  203.  
  204. EndProcedure
  205.  
  206.